Woordanalyse
De kern van Lingvistica is de individuele woordvorm. Met woordanalyse kunt u in een aantal functies uw tekst analyseren.
$ontl_strt = microtime(true);
include ("tlkd-http-func-0007.php");
include ("bepl-taal-func.php");
require_once ("calc-text-func.php");
require_once ("text-isrt-func.php");
require_once ("chbt-date-func.php");
require_once ("bepl-taal-func.php");
// require_once ("cvch-text-func.php");
include ("config.php");
include ("conv.php");
// echo "
DOMN ".$invr_domn." TAAL ".$invr_taal." BZV1 ".$invr_bzv1;
$save_bzv1=$invr_bzv1;
$uw_antwoord=text_isrt($invr_taal."@uw antwoord");
$uw_vraag=text_isrt($invr_taal."@uw vraag");
$is_een_idee_van=text_isrt($invr_taal."@is een idee van");
$woordonderhoud=text_isrt($invr_taal."@woordonderhoud");
$we_spreken_nu=text_isrt($invr_taal."@we spreken nu")." ".text_isrt($invr_taal."@".$invr_taal);
$bezoeker=''.text_isrt($invr_taal."@bezoeker");
$chatbotleraar=text_isrt($invr_taal."@chatbotleraar");
$vertalingen=text_isrt($invr_taal."@vertalingen");
$analyse=text_isrt($invr_taal."@analyse");
$taalkunde=text_isrt($invr_taal."@taalkunde");
$aansprakelijkheid=''.text_isrt($invr_taal."@aansprakelijkheid");
$handelsmerken=text_isrt($invr_taal."@handelsmerken");
$statistieken=text_isrt($invr_taal."@statistieken");
$kennisdomeinen=text_isrt($invr_taal."@kennisdomeinen");
$gebruikersteksten=text_isrt($invr_taal."@gebruikersteksten");
$medische_termen=text_isrt($invr_taal."@medische termen");
$alpha_versie=text_isrt($invr_taal."@alpha versie")." ".$modl;
$alpha_versie=''.text_isrt($invr_taal."@".$alpha_versie);
$sprk_taal="
".text_isrt($invr_taal."@en spreek")." ".text_isrt($invr_taal."@".$bzkr_taal);
$copy_rght='Copyright 2001-2011 Lingvistica BTW NL810085136B01 KvK 18062655';
$copy_rght=text_isrt($invr_taal."@".$copy_rght);
$copy_rght=''.$copy_rght.'';
$versie=text_isrt($invr_taal."@alpha versie");
$semanta="";
$lingvistica="";
$bezoeker=text_isrt($invr_taal."@bezoeker");
$ik_ben=text_isrt($invr_taal."@ik ben");
$aantal_tekens=text_isrt($invr_taal."@aantal tekens");
//////////////////////
$taal_rslt= bepl_taal($invr_bzv1."@taal");
// print_r($taal_rslt);
$taal_itms=explode(".",$taal_rslt);
$text_ipcd=$taal_itms[0];
$text_taal=$taal_itms[1];
// echo "
UW TEKST IS IN HET ".$text_taal;
if ($text_taal == null)
{
$text_ipcd="nl";
$text_taal="nederlands";
$invr_taal="nederlands";
}
if ($invr_chbt == null)
{
$invr_chbt="semantus";
}
// print_r($infr_array);
$infr_land=strtolower($infr_array[land]);
echo "
LAND ".$infr_land;
$imge_srce=$infr_land.'.png';
echo "";
echo '
'.$semanta.' '.$is_een_idee_van.' '.$lingvistica;
$in_vier_stappen=text_isrt($invr_taal."@Oh ja? In vier eenvoudige stappen");
$taal_is_een_menselijk=text_isrt($invr_taal."@Taal is een menselijk communicatiesysteem dat betekenis kan weergeven en doorgeven");
$semanta_computerprogramma=text_isrt($invr_taal."@Semanta of hoe een computerprogramma zou kunnen leren praten");
$taal=text_isrt($invr_taal."@language");
$IP_address=text_isrt($invr_taal."@IP address");
$taal=text_isrt($invr_taal."@taal");
$creatie=text_isrt($invr_taal."@ik wil een nieuwe chatbot maken");
$informatie=text_isrt($invr_taal."@informatie");
$onderwerpen=text_isrt($invr_taal."@onderwerpen");
$internethelper=text_isrt($invr_taal."@internet helper");
$chbt_hello="";
$lgroet=chbt_date("IT@1@2@".$invr_taal."@".$invr_bzkr);
$welkom=$date_array[groet]." Het is nu ".$date_array[tijdstip]." op ".$date_array[vandaag];
echo "
".$welkom."
";
$leer_uw_computer_praten=text_isrt($invr_taal."@chatbotleraar");
$automatisch_vertalen=text_isrt($invr_taal."@automatisch vertalen");
$lec_text="translate-demos.asp";
$leesplezier=text_isrt($invr_taal."@leesplezier");
$gekozen_chatbot=text_isrt($invr_taal."@Gekozen taal en chatbot");
// require_once("smta-conv-taal.php");
if ($invr_bzv1== null)
{
$invr_bzv1=$semanta_computerprogramma;
}
echo "
".$semanta_computerprogramma."";
?>
// echo "
".$invr_domn." IPAD ".$invr_ipad;
/////////////////////////// BEPAAL GESPREKSPARTNER ///////////////////
$sql0 = "SELECT * FROM corp where `domn` = '$invr_domn' order by domn desc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql0, $link);
$tabl_num = mysql_num_rows($tablresult);
echo "
Aantallen ".$sql0." ".$tabl_num." SQL ";
if ($tabl_num == 0)
{
// echo "SYSTEM ERROR CALL US 31-162-313323";
}
if ($tabl_num >0)
{
while ($row = mysql_fetch_assoc($tablresult))
{
$id=$row['id'];
$ipad=$row['ipad'];
$ipad_array[$ipad]=$ipad_array[$ipad]+1;
$domn=$row['domn'];
$domn_array[$domn]=$domn_array[$domn]+1;
// echo "
".$domn;
$lnks=$row['lnks'];
$lnks_array[$lnks]=$lnks_array[$lnks]+1;
// echo "
".$lnks;
$rchs=$row['rchs'];
$taal=$row['taal'];
// $invr_taal=$taal;
$corp_taal=text_isrt($taal.'@'.$taal);
$levl=$row['levl'];
}
}
// echo "
CHBT
";
// echo "
INVR CHBT ".$invr_chbt;
$ipad_itms=explode(".",$invr_ipad);
// echo "
INVR IPAD ".$invr_ipad;
// print_r($ipad_itms);
if (substr($ipad_itms[0],0,4) == "http")
{
$dspl_page= "Visit the webpage";
}
if (substr($ipad_itms[0],0,4) != "http")
{
$text_page="/.".$ipad_itms[0]."/".$ipad_itms[1].".".$ipad_itms[2];
$dspl_page= "Visit the webtext";
}
echo "
".$dspl_page;
foreach($ipad_array as $ipad_key => $ipad_val)
{
$sql0 = "SELECT * FROM chbt where `lnks` = '$invr_chbt' order by domn desc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql0, $link);
$tabl_num = mysql_num_rows($tablresult);
// echo "
Aantallen ".$sql0." ".$tabl_num." SQL ";
if ($tabl_num == 0)
{
// echo "SYSTEM ERROR CALL US 31-162-313323";
}
if ($tabl_num >0)
{
while ($row = mysql_fetch_assoc($tablresult))
{
$id=$row['id'];
$ipad=$row['ipad'];
$ipad_array[$ipad]=$ipad_array[$ipad]+1;
$domn=$row['domn'];
echo "
GESPREKSPARTNER ".$domn."
";
$domn_array[$domn]=$domn_array[$domn]+1;
// echo "
".$domn;
$lnks=$row['lnks'];
$lnks_array[$lnks]=$lnks_array[$lnks]+1;
// echo "
".$lnks;
$rchs=$row['rchs'];
$taal=$row['taal'];
// $invr_taal=$taal;
$corp_taal=text_isrt($taal.'@'.$taal);
$levl=$row['levl'];
}
}
}
echo "
ANALYSIS RESULTS ";
echo '';
?>